home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 87 / Digital_Talk_87_2009-08-17_Digital_Talk_de_Side_D.d64 / ww millionaer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  26KB  |  1,192 lines
  1. 5 l=1
  2. 7 x=rnd(-ti)
  3. 10 dimp$(15),fz(15),a$(6),ga$(4),sg(15,9)
  4. 20 lu$=""
  5. 100 D3 Ds
  6. 103 D3 start
  7. 105 poke53281,0:print"[154]":sp=sp+1:ifsp=10thensp=0
  8. 110 D3 frage
  9. 120 D3 punkte
  10. 130 D3 config
  11. 140 D3 joker
  12. 1000 d$="level"+str$(l)
  13. 1005 f=int(fz(l)*rnd(1))+1
  14. 1006 fori=0to9:ifsg(l,i)=fthen1005
  15. 1007 nexti
  16. 1008 sg(l,sp)=f
  17. 1009 d=int((f-1)/20):f=f-d*20
  18. 1010 dd$=d$+"f"+str$(d)+",s,r"
  19. 1020 de$=d$+"a"+str$(d)+",s,r"
  20. 1040 open2,8,2,dd$
  21. 1050 iff>1thenfori=1to(f-1)*2:input#2,a$:next
  22. 1060 input#2,f$(1):input#2,f$(2):close2
  23. 1065 iff$(2)="[255]"thenf$(2)=" "
  24. 1070 x$=lu$+""
  25. 1080 print"[159]"left$(x$,20-len(f$(1))/2);f$(1)
  26. 1085 print"";
  27. 1090 iflen(f$(2))<37thenprintleft$(x$,20-len(f$(2))/2);f$(2)
  28. 1100 iflen(f$(2))>36thenprint""left$(f$(2),36)
  29. 1110 open2,8,2,de$
  30. 1120 iff>1thenfori=1to(f-1)*6:input#2,a$:next
  31. 1130 fori=1to6:input#2,a$(i):next:close2
  32. 1140 ifa$(5)="a"thena=1
  33. 1150 ifa$(5)="b"thena=2
  34. 1160 ifa$(5)="c"thena=3
  35. 1170 ifa$(5)="d"thena=4
  36. 1180 fori=1to4:ga$(i)="":j1(i)=0:next
  37. 1185 ifa$(6)="r"thenfori=1to4:ga$(i)=a$(i):next:ra=a:goto1240
  38. 1190 fori=1to4
  39. 1200 x=int(4*rnd(1))+1
  40. 1210 ifga$(x)<>""then1200
  41. 1220 ga$(x)=a$(i):ifa=ithenra=x
  42. 1230 nexti
  43. 1240 print"";
  44. 1250 ga$(1)="[158]a:[159]"+ga$(1)
  45. 1260 ga$(2)="[158]b:[159]"+ga$(2)
  46. 1270 ga$(3)="[158]c:[159]"+ga$(3)
  47. 1280 ga$(4)="[158]d:[159]"+ga$(4)
  48. 1290 print"";left$(ga$(1),20)
  49. 1291 fori=1to1200:next
  50. 1292 print"";
  51. 1293 print"";left$(ga$(2),20)
  52. 1295 print"";
  53. 1296 fori=1to1200:next
  54. 1300 print"";left$(ga$(3),20)
  55. 1310 print"";
  56. 1315 fori=1to1200:next
  57. 1320 print"";left$(ga$(4),20)"[145][145][145][145][145][145][145][145][145]"
  58. 1500 a$="":geta$:ifa$<>"a"anda$<>"b"anda$<>"c"anda$<>"d"anda$<>"e"then1502
  59. 1501 goto1510
  60. 1502 ifa$<>""thenifasc(a$)=>133andasc(a$)<=136then1510
  61. 1503 ifa$<>"z"anda$<>"y"anda$<>"x"anda$<>"_"anda$<>"j"then1500
  62. 1505 ifa$="_"then D3 zoom
  63. 1506 ifa$="_"then 1500
  64. 1510 ifa$="a"orasc(a$)=133thenan=1
  65. 1520 ifa$="b"orasc(a$)=134thenan=2
  66. 1530 ifa$="c"orasc(a$)=135thenan=3
  67. 1540 ifa$="d"orasc(a$)=136thenan=4
  68. 1541 ifa$="j"then tj=1:D3 telefon
  69. 1542 ifa$="j"then1500
  70. 1545 ifa$="e"thenD3 ausstieg
  71. 1546 ifa$="x"then D3 fiftyfifty
  72. 1547 ifa$="x"then1500
  73. 1548 ifa$="y"then tj=0:D3 telefon
  74. 1549 ifa$="y"then1500
  75. 1550 ifa$="z"then D3 publikum
  76. 1551 ifa$="z"then1500
  77. 1552 ifa$="e"then3000
  78. 1553 D3 tipp
  79. 1555 ifan<>rathenD3 falsch
  80. 1556 ifan<>rathen3000
  81. 1560 D3 richtig
  82. 1561 l=l+1:ifl=16thenD3 ausstieg
  83. 1570 print"[147]"
  84. 1580 D3 frage
  85. 1590 D3 punkte
  86. 1595 D3 joker
  87. 1600 goto1000
  88. 2000 D1 tipp
  89. 2010 ga$(an)=""+mid$(ga$(an),2,2)+mid$(ga$(an),5,40):ga$(an)=left$(ga$(an),19)
  90. 2020 D3 antworten
  91. 2030 fori=1to999:next
  92. 2040 D4
  93. 2050 D1 falsch
  94. 2060 h$=ga$(ra)
  95. 2070 i$=""+mid$(ga$(ra),2,2)+mid$(ga$(ra),5,40)
  96. 2072 fori=1to6
  97. 2075 ga$(ra)=h$
  98. 2080 D3 antworten
  99. 2090 ga$(ra)=i$:ga$(ra)=left$(ga$(ra),19)
  100. 2100 D3 antworten
  101. 2110 nexti
  102. 2120 print"[147]"lu$"game over"
  103. 2130 print""lu$"sie haben"
  104. 2140 ifl<16thenp$="16.000 euro":ifmo=1thenl=10
  105. 2150 ifl<11thenp$="500 euro"
  106. 2160 ifl<6thenp$="0[160]euro"
  107. 2170 print""lu$;p$
  108. 2180 print""lu$"gewonnen "
  109. 2190 D4
  110. 2200 D3 antworten
  111. 2205 forj=1to120:nextj
  112. 2210 nexti
  113. 2220 D4
  114. 2250 D1 richtig
  115. 2260 h$=ga$(ra)
  116. 2270 i$=""+mid$(ga$(ra),2,2)+mid$(ga$(ra),4,40)
  117. 2272 fori=1to4
  118. 2275 ga$(ra)=h$:ga$(ra)=left$(ga$(ra),19)
  119. 2280 D3 antworten
  120. 2285 rem forj=1to10:nextj
  121. 2290 ga$(ra)=i$:ga$(ra)=left$(ga$(ra),19)
  122. 2300 D3 antworten
  123. 2305 rem forj=1to10:nextj
  124. 2310 nexti
  125. 2320 D4
  126. 2410 D1 ausstieg
  127. 2420 print"[147][159]"lu$"game over"
  128. 2430 print""lu$"sie haben"
  129. 2440 ifl=1thenp$="0 euro"
  130. 2450 ifl>1thenp$=right$(p$(l-1),len(p$(l-1))-10)
  131. 2455 ifl>1andright$(p$,1)=" "thenp$=left$(p$,len(p$)-1):goto2455
  132. 2460 ifl>1thenp$=p$+" euro"
  133. 2470 print""lu$;p$
  134. 2480 print""lu$"gewonnen "
  135. 2483 ifl=16thenprint"sie sind millionaer !!!!!":goto 3000
  136. 2485 ifl<16thenprint"es waere "ga$(ra):print"[159]richtig gewesen."
  137. 2490 D4
  138. 3000 rem nochmal
  139. 3010 print"noch ein spiel (j/n) ?":no=1
  140. 3020 getan$:ifan$="j"then l=1:j1=0:j2=0:j3=0:j4=0:goto103
  141. 3030 ifan$="j"then105
  142. 3040 ifan$="n"thenprint"und tschuess...":end
  143. 3050 goto3020
  144. 4000 D1 zoom
  145. 4010 print"[147][159]"
  146. 4011 print"                  zoom"
  147. 4012 print" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  148. 4020 print" "f$(1)
  149. 4030 print" "f$(2)
  150. 4040 print" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  151. 4050 fori=1to4
  152. 4060 print" ";ga$(i)
  153. 4070 print" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  154. 4080 nexti
  155. 4090 print"druecken sie '_' zum weiterspielen !"
  156. 4100 getan$:ifan$<>"_"then4100
  157. 4110 print"[147]":a$="_"
  158. 4120 D3 frage
  159. 4130 D3 antworten
  160. 4140 D3 punkte
  161. 4150 D3 joker
  162. 4160 D4
  163. 5000 D1 start
  164. 5004 poke53281,0
  165. 5010 print"[147][158]"
  166. 5011 print"[159]        dtl-soft praesentiert:"
  167. 5012 print"    eines der letzten c-64-spiele :"
  168. 5020 print"[158]  [201]   [213] [213][195][195][195] [213][195][195][201]    [201]   [213] [178] [213][195][195][201] [178][195][195][201]"
  169. 5030 print"  [194] [194] [194] [194]    [194]  [194]    [194] [194] [194] [194] [194]  [194] [194]  [194]"
  170. 5040 print"  [194] [194] [194] [171][195][195]  [171][195][195][203]    [194] [194] [194] [194] [171][195][195][203] [194]  [194]"
  171. 5050 print"  [194] [194] [194] [194]    [194][205]      [194] [194] [194] [194] [194][205]   [194]  [194]"
  172. 5060 print"  [202][195][177][195][203] [202][195][195][195] [177] [195]     [202][195][177][195][203] [177] [177] [195]  [177][195][195][203]"
  173. 5070 print
  174. 5075 print"                              [215]  [215]"
  175. 5080 print"  [213][195][178][195][201] [178] [178]   [178]   [178] [213][195][195][201] [178]  [178] [213][195][195][201] [213][195][195][201]"
  176. 5090 print"  [194] [194] [194] [194] [194]   [194]   [194] [194]  [194] [194][205] [194] [194]  [194] [194]  [194]"
  177. 5100 print"  [194] [194] [194] [194] [194]   [194]   [194] [194]  [194] [194][167] [194] [171][195][195][179] [171][195][195][203]"
  178. 5110 print"  [194]   [194] [194] [194]   [194]   [194] [194]  [194] [194] [205][194] [194]  [194] [194][205]  "
  179. 5120 print"  [177]   [177] [177] [202][195][195] [202][195][195] [177] [202][195][195][203] [177]  [177] [177]  [177] [177] [195] "
  180. 5130 print
  181. 5140 print"         [159]von daddlertl (2001)"
  182. 5145 print"        update 10.05.2009 v1.02"
  183. 5150 print
  184. 5160 print"[150]      s - start    a - anleitung"
  185. 5165 print
  186. 5170 print"          m - modus: ";
  187. 5172 if mo=0 then print"standard       "
  188. 5174 if mo=1 then print"mit zusatzjoker"
  189. 5180 getan$:ifan$="s"thenprint"[147]":D4
  190. 5185 if an$="m" then mo=-mo+1:print"[145][145]": goto 5170
  191. 5190 ifan$<>"a"then5180
  192. 5200 print"[147][155]anleitung zu 'wer wird millionaer'"
  193. 5210 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  194. 5220 print
  195. 5222 print" die folgende anleitung gilt fuer den"
  196. 5224 print" standardmodus. der modus mit zusatz-"
  197. 5226 print" joker wird am ende der anleitung"
  198. 5227 print" erklaert."
  199. 5228 print
  200. 5230 print"ziel d. spiels ist es, 15 fragen rich-"
  201. 5240 print" tig zu beantworten und 1 mio. euro zu"
  202. 5250 print" gewinnen - zumindest theoretisch."
  203. 5260 print" da man nicht auf jede frage eine ant-"
  204. 5270 print" wort wissen kann, helfen einem drei"
  205. 5280 print" joker, die richtige loesung zu finden."
  206. 5290 print" geantwortet wird, indem man die taste"
  207. 5300 print" a,b,c od. d (bzw. f1,f3,f5,f7) entspr."
  208. 5310 print" der vermuteten antwort drueckt."
  209. 5320 print" nachdem man seinen tipp abgegeben hat,"
  210. 5330 print" wird durch mehrmaliges aufblinken die"
  211. 5340 print" richtige loesung angezeigt."
  212. 5345 D3 taste
  213. 5350 print" war der tipp richtig, kommt man eine"
  214. 5360 print" stufe hoeher u. bekommt eine neue,"
  215. 5370 print" schwierigere frage gestellt."
  216. 5375 print" am rechten rand sieht man den betrag,"
  217. 5380 print" den man gewonnen hat, wenn man jetzt"
  218. 5390 print" aussteigen wuerde."
  219. 5400 print"[155] hat man die million erreicht, ist man"
  220. 5410 print" millionaer (theoretisch) und sieger"
  221. 5420 print" des spiels."
  222. 5430 print" hat man sich jedoch geirrt, ist das"
  223. 5440 print" spiel gelaufen und man faellt auf die"
  224. 5450 print" niedrigere, gelbe gewinnstufe, also"
  225. 5460 print" auf 500 bzw. 16.000 euro. hat man"
  226. 5470 print" weniger als dm 500 erreicht, geh't"
  227. 5480 print" man leider leer aus (0 euro)."
  228. 5490 print" ist man sich nicht sicher, welche ant-"
  229. 5500 print" wort die richtige ist, koennen einem"
  230. 5510 print" folgende drei joker helfen, die mit"
  231. 5520 print" den tasten x, y und z eingesetzt wer-"
  232. 5530 print" den und jeweils nur einmal verwendbar"
  233. 5540 print" sind (pro spiel):"
  234. 5550 D3 taste
  235. 5560 print" 50:50 (taste x)"
  236. 5570 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  237. 5580 print" setzt man den 50:50-joker ein, werden"
  238. 5590 print" zwei falsche antworten geloescht, so"
  239. 5600 print" dass man nur noch zwei antwortmoeg-"
  240. 5610 print" lichkeiten zur auswahl hat. dies"
  241. 5620 print" erleichtert die entscheidung meist"
  242. 5630 print" erheblich."
  243. 5640 print
  244. 5650 print" telefon (taste y)"
  245. 5660 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  246. 5670 print" beim telefon-joker hat man zwei moeg-"
  247. 5680 print" lichkeiten, die durch druecken der"
  248. 5690 print" taste 1 oder 2 angewendet werden:"
  249. 5700 print" 1) man befragt jemanden, der in der"
  250. 5710 print"    naehe ist nach der antwort oder"
  251. 5720 print"    ruft jemanden an. die zeit fuer"
  252. 5730 print"    diese aktion ist auf 30 sekunden"
  253. 5740 print"    beschraenkt."
  254. 5745 D3 taste
  255. 5750 print" 2) man laesst den telefonkandidat vom"
  256. 5760 print"    computer simulieren. dieser weiss"
  257. 5770 print"    die antwort mit einer gewissen"
  258. 5780 print"    sicherheit oder er weiss sie nicht."
  259. 5790 print"    achtung: selbst wenn sich der simu-"
  260. 5800 print"    lierte telefonkandidat 100%-ig"
  261. 5810 print"    sicher ist, kann er eventuell einen"
  262. 5820 print"    falschen tipp abgeben."
  263. 5830 print" der telefonjoker kann einem einen an-"
  264. 5840 print" haltspunkt geben; mann weiss jedoch"
  265. 5850 print" nicht, ob d. telefonkandidat recht hat."
  266. 5880 print" publikum (taste z)"
  267. 5890 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  268. 5900 print" der publikumsjoker simuliert ein 100-"
  269. 5910 print" koepfiges publikum. jeder 'zuschauer'"
  270. 5920 print" gibt dabei seinen tipp ab. nachdem"
  271. 5930 print" die simulation abgeschlossen ist, er-"
  272. 5940 print" scheint auf dem bildschirm ein dia-"
  273. 5950 print" gramm, das anzeigt, wie oft (in %)"
  274. 5960 print" welche antwort gegeben wurde."
  275. 5970 D3 taste
  276. 5980 print" ist bei einer antwort eine deutliche"
  277. 5990 print" mehrheit zu erkennen, so ist diese"
  278. 6000 print" antwort wahrscheinlich die richtige."
  279. 6010 print" ist die mehrheit jedoch zu knapp,"
  280. 6020 print" sollte man das ergebnis mit vorsicht"
  281. 6030 print" geniessen."
  282. 6040 print
  283. 6050 print" es koennen auch mehrere joker bei"
  284. 6060 print" einer frage zur absicherung verwendet"
  285. 6070 print" werden."
  286. 6080 print
  287. 6090 print" sind alle joker verbraucht und man"
  288. 6100 print" weiss eine antwort nicht, so sollte"
  289. 6110 print" man mit der taste e aus dem spiel aus-"
  290. 6120 print" steigen, um nicht bei einer falschant-"
  291. 6130 print" wort auf eine niedrigere gewinnsumme"
  292. 6140 print" zurueckzufallen (es sei denn, man ist"
  293. 6150 print" risikofreudig)."
  294. 6160 D3 taste
  295. 6170 print" zoom-funktion (taste _)"
  296. 6180 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  297. 6190 print" ist eine frage oder antwort aufgrund"
  298. 6200 print" ihrer ueberlaenge nicht vollstaendig"
  299. 6210 print" zu sehen (kein fragezeichen am ende"
  300. 6220 print" einer frage, fehlende oder abge-"
  301. 6230 print" schnittene woerter etc.), so kann man"
  302. 6240 print" die zoom-funktion verwenden. dabei"
  303. 6250 print" verschwindet der hauptbildschirm und"
  304. 6260 print" die frage und antworten werden in"
  305. 6270 print" voller laenge auf dem bildschirm dar-"
  306. 6280 print" gestellt."
  307. 6290 print" nachdem man die frage und antworten"
  308. 6300 print" gelesen hat, kehrt man mit der taste _"
  309. 6310 print" zum hauptbildschirm zurueck."
  310. 6320 D3 taste
  311. 6330 print" achtung ! es koennen nur antworten ge-"
  312. 6340 print" geben werden, joker eingesetzt oder"
  313. 6350 print" das spiel beendet werden, wenn man"
  314. 6360 print" auf dem hauptbildschirm ist. aus"
  315. 6370 print" diesem grund muss man nebenbildschirme"
  316. 6380 print" (joker, zoom) mit der taste '_' vor-"
  317. 6390 print" her verlassen !"
  318. 6400 print" ausserdem sollte man keine taste"
  319. 6405 print" wiederholt druecken, in der vermu-"
  320. 6410 print" tung, dass der computer nicht auf"
  321. 6420 print" einen tastendruck reagiert hat -"
  322. 6430 print" einige berechnungen, insbesondere der"
  323. 6440 print" publikumsjoker nehmen einige sekunden"
  324. 6450 print" rechenzeit in anspruch. deshalb sollte"
  325. 6460 print" ein tastendruck erst wiederholt werden"
  326. 6470 print" wenn der computer laenger als 10 se-"
  327. 6480 print" kunden lang keine reaktion zeigt, um"
  328. 6490 print" fehlfunktionen zu vermeiden !"
  329. 6500 D3 taste
  330. 6510 print" hinweise und tipps"
  331. 6520 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  332. 6530 print" - das spiel enthaelt 998 fragen."
  333. 6540 print" - fragen koennen sich waehrend einer"
  334. 6550 print"   spielesitzung fruehestens ab dem"
  335. 6560 print"   11. spiel wiederholen.
  336. 6570 [153]" - der telefonkandidat und das publi-"
  337. 6580 [153]"   kum liegen nicht immer richtig,"
  338. 6590 [153]"   im zweifelsfalle mit 50:50-joker"
  339. 6600 [153]"   (falls noch verfuegbar) absichern."
  340. 6610 [153]" - hat man genau 500 oder 16.000"
  341. 6620 [153]"   euro und keine joker mehr,sollte"
  342. 6630 [153]"   man trotzdem einen tip abgeben"
  343. 6640 [153]"   da man diesen betrag ja sicher"
  344. 6650 [153]"   hat."
  345. 6660 [153]" - sollte man einmal leer ausgehen:"
  346. 6670 [153]"   macht nichts ! es ist nur ein spiel,"
  347. 6680 [153]"   das man beliebig oft wiederholen"
  348. 6690 [153]"   kann !"
  349. 6700 D3 taste
  350. 6710 [153]" modus mit zusatzjoker"
  351. 6720 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  352. 6740 [153]" waehlt man den modus mit zusatzjoker"
  353. 6750 [153]" ergeben sich zwei kleine regelaende-"
  354. 6760 [153]" rungen:"
  355. 6770 [153]
  356. 6780 [153]" 1.) die sicherheitsstufe 16.000 euro"
  357. 6790 [153]"     entfaellt, d.h. wenn man 16.000"
  358. 6800 [153]"     euro erreicht hat und dann eine"
  359. 6810 [153]"     falsche antwort gibt, gewinnt man"
  360. 6820 [153]"     nur 500 euro.
  361. 6825 print
  362. 6830 print" 2.) man erhaelt einen zusatzjoker"
  363. 6840 print"     (taste j): hierbei wird ein publi-"
  364. 6850 print"     kumskandidat befragt, der glaubt,"
  365. 6860 print"     die richtige antwort zu wissen."
  366. 6870 print"     auch hier gilt: selbst wenn er"
  367. 6880 print"     sich 100%-ig sicher ist, kann die"
  368. 6890 print"     antwort trotzdem falsch sein."
  369. 6900 print:print"      [158]viel spass beim spielen !"
  370. 6910 D3 taste
  371. 7999 goto103
  372. 8000 D1 taste
  373. 8010 print:print"    zum fortfahren taste druecken"
  374. 8020 getan$:ifan$=""then8020
  375. 8025 print"[147][155]"
  376. 8030 D4
  377. 8999 end
  378. 9000 D1 antworten
  379. 9065 iff$(2)="[255]"thenf$(2)=" "
  380. 9070 x$=""
  381. 9080 print"[159]"left$(x$,20-len(f$(1))/2);f$(1)
  382. 9085 print"";
  383. 9090 iflen(f$(2))<37thenprintleft$(x$,20-len(f$(2))/2);f$(2)
  384. 9100 iflen(f$(2))>36thenprint""left$(f$(2),36)
  385. 9240 print"";
  386. 9290 print"";left$(ga$(1),20)
  387. 9292 print"";
  388. 9293 print"";left$(ga$(2),20)
  389. 9295 print"";
  390. 9300 print"";left$(ga$(3),20)
  391. 9310 print"";
  392. 9320 print"";left$(ga$(4),20)"[145][145][145][145][145][145][145][145][145]"
  393. 9390 D4
  394. 9500 D1 neu
  395. 9510 fori=1to4:j1(i)=0:next
  396. 9520 j1=0:j2=0:j3=0
  397. 9530 l=1:print"[147]"
  398. 9590 D4
  399. 9999 end
  400. 10000 D1 Ds
  401. 10005 DZ
  402. 10010 DB2,$e000+129*8:rem
  403. 10020 @........
  404. 10030 @........
  405. 10040 @........
  406. 10050 @........
  407. 10060 @.......b
  408. 10070 @......bb
  409. 10080 @.....bb.
  410. 10090 @bbbbbb..
  411. 10110 DB2,$e000+130*8:rem
  412. 10120 @bbbbbb..
  413. 10130 @.....bb.
  414. 10140 @......bb
  415. 10150 @.......b
  416. 10160 @........
  417. 10170 @........
  418. 10180 @........
  419. 10190 @........
  420. 10210 DB2,$e000+131*8:rem
  421. 10220 @...bb...
  422. 10230 @..bb....
  423. 10240 @.bb.....
  424. 10250 @bb......
  425. 10260 @b.......
  426. 10270 @........
  427. 10280 @........
  428. 10290 @........
  429. 10310 DB2,$e000+151*8:rem
  430. 10320 @........
  431. 10330 @........
  432. 10340 @........
  433. 10350 @b.......
  434. 10360 @bb......
  435. 10370 @.bb.....
  436. 10380 @..bb....
  437. 10390 @...bb...
  438. 10410 DB2,$e000+154*8:rem
  439. 10420 @........
  440. 10430 @........
  441. 10440 @........
  442. 10450 @........
  443. 10460 @.......b
  444. 10470 @......bb
  445. 10480 @.....bb.
  446. 10490 @....bb..
  447. 10510 DB2,$e000+134*8:rem
  448. 10520 @....bb..
  449. 10530 @.....bb.
  450. 10540 @......bb
  451. 10550 @.......b
  452. 10560 @........
  453. 10570 @........
  454. 10580 @........
  455. 10590 @........
  456. 11010 DB2,$e000+135*8:rem
  457. 11020 @........
  458. 11030 @........
  459. 11040 @........
  460. 11050 @........
  461. 11060 @b.......
  462. 11070 @bb......
  463. 11080 @.bb.....
  464. 11090 @..bbbbbb
  465. 11110 DB2,$e000+136*8:rem
  466. 11120 @..bbbbbb
  467. 11130 @.bb.....
  468. 11140 @bb......
  469. 11150 @b.......
  470. 11160 @........
  471. 11170 @........
  472. 11180 @........
  473. 11190 @........
  474. 11210 DB2,$e000+163*8:rem
  475. 11220 @...bb...
  476. 11230 @....bb..
  477. 11240 @.....bb.
  478. 11250 @......bb
  479. 11260 @.......b
  480. 11270 @........
  481. 11280 @........
  482. 11290 @........
  483. 11310 DB2,$e000+138*8:rem
  484. 11320 @........
  485. 11330 @........
  486. 11340 @........
  487. 11350 @.......b
  488. 11360 @......bb
  489. 11370 @.....bb.
  490. 11380 @....bb..
  491. 11390 @...bb...
  492. 11410 DB2,$e000+139*8:rem
  493. 11420 @........
  494. 11430 @........
  495. 11440 @........
  496. 11450 @........
  497. 11460 @b.......
  498. 11470 @bb......
  499. 11480 @.bb.....
  500. 11490 @..bb....
  501. 11510 DB2,$e000+161*8:rem
  502. 11520 @..bb....
  503. 11530 @.bb.....
  504. 11540 @bb......
  505. 11550 @b.......
  506. 11560 @........
  507. 11570 @........
  508. 11580 @........
  509. 11590 @........
  510. 12010 DB2,$e000+152*8:rem
  511. 12020 @......bb
  512. 12030 @.....bb.
  513. 12040 @....bb..
  514. 12050 @bbbbb...
  515. 12060 @bbbbb...
  516. 12070 @....bb..
  517. 12080 @.....bb.
  518. 12090 @......bb
  519. 12110 DB2,$e000+164*8:rem
  520. 12120 @........
  521. 12130 @........
  522. 12140 @........
  523. 12150 @........
  524. 12160 @........
  525. 12170 @........
  526. 12180 @........
  527. 12190 @.......b
  528. 12210 DB2,$e000+165*8:rem
  529. 12220 @.......b
  530. 12230 @........
  531. 12240 @........
  532. 12250 @........
  533. 12260 @........
  534. 12270 @........
  535. 12280 @........
  536. 12290 @........
  537. 12310 DB2,$e000+144*8:rem
  538. 12320 @........
  539. 12330 @........
  540. 12340 @........
  541. 12350 @...bbbbb
  542. 12360 @..bbbbbb
  543. 12370 @.bb.....
  544. 12380 @bb......
  545. 12390 @b.......
  546. 12410 DB2,$e000+145*8:rem
  547. 12420 @b.......
  548. 12430 @bb......
  549. 12440 @.bb.....
  550. 12450 @..bbbbbb
  551. 12460 @...bbbbb
  552. 12470 @........
  553. 12480 @........
  554. 12490 @........
  555. 12510 DB2,$e000+132*8:rem
  556. 12520 @bb......
  557. 12530 @.bb.....
  558. 12540 @..bb....
  559. 12550 @...bbbbb
  560. 12560 @...bbbbb
  561. 12570 @..bb....
  562. 12580 @.bb.....
  563. 12590 @bb......
  564. 12610 DB2,$e000+147*8:rem
  565. 12620 @........
  566. 12630 @........
  567. 12640 @........
  568. 12650 @........
  569. 12660 @........
  570. 12670 @........
  571. 12680 @........
  572. 12690 @b.......
  573. 12710 DB2,$e000+148*8:rem
  574. 12720 @b.......
  575. 12730 @........
  576. 12740 @........
  577. 12750 @........
  578. 12760 @........
  579. 12770 @........
  580. 12780 @........
  581. 12790 @........
  582. 12810 DB2,$e000+141*8:rem
  583. 12820 @........
  584. 12830 @........
  585. 12840 @........
  586. 12850 @bbbbb...
  587. 12860 @bbbbbb..
  588. 12870 @.....bb.
  589. 12880 @......bb
  590. 12890 @.......b
  591. 12910 DB2,$e000+150*8:rem
  592. 12920 @.......b
  593. 12930 @......bb
  594. 12940 @.....bb.
  595. 12950 @bbbbbb..
  596. 12960 @bbbbb...
  597. 12970 @........
  598. 12980 @........
  599. 12990 @........
  600. 13000 DB2,$e000+193*8:rem
  601. 13010 @........
  602. 13020 @........
  603. 13030 @.....bbb
  604. 13040 @...bbb..
  605. 13050 @..bb....
  606. 13060 @.bb.bbb.
  607. 13070 @bb..b...
  608. 13080 @b...b...
  609. 13100 DB2,$e000+194*8:rem
  610. 13110 @b...bb..
  611. 13120 @b.....b.
  612. 13130 @bb....b.
  613. 13140 @.bb.bb..
  614. 13150 @..bb....
  615. 13160 @...bbb..
  616. 13170 @.....bbb
  617. 13180 @........
  618. 13200 DB2,$e000+195*8:rem
  619. 13210 @........
  620. 13220 @bbbbbbbb
  621. 13230 @b......b
  622. 13240 @........
  623. 13250 @........
  624. 13260 @.b....bb
  625. 13270 @b.b.b.b.
  626. 13280 @b.b...b.
  627. 13300 DB2,$e000+196*8:rem
  628. 13310 @b.b...bb
  629. 13320 @b.b.....
  630. 13330 @b.b.b...
  631. 13340 @.b....bb
  632. 13350 @........
  633. 13360 @........
  634. 13370 @b......b
  635. 13380 @bbbbbbbb
  636. 13400 DB2,$e000+197*8:rem
  637. 13423 @........
  638. 13424 @........
  639. 13425 @bbb.....
  640. 13426 @..bbb...
  641. 13427 @....bb..
  642. 13428 @b..b.bb.
  643. 13429 @..b.b.bb
  644. 13430 @..b.b..b
  645. 13500 DB2,$e000+198*8:rem
  646. 13531 @..b.b..b
  647. 13532 @b.b.b..b
  648. 13533 @b.b.b.bb
  649. 13534 @...b.bb.
  650. 13535 @....bb..
  651. 13536 @..bbb...
  652. 13537 @bbb.....
  653. 13538 @........
  654. 14000 DB2,$e000+199*8:rem
  655. 14023 @........
  656. 14024 @........
  657. 14025 @.....bbb
  658. 14026 @...bbb..
  659. 14027 @..bb....
  660. 14028 @.bb.....
  661. 14029 @bb......
  662. 14030 @b.......
  663. 14100 DB2,$e000+200*8:rem
  664. 14131 @b.......
  665. 14132 @b.......
  666. 14133 @bb.b...b
  667. 14134 @.bb.b.b.
  668. 14135 @..bb.b..
  669. 14136 @...bbb..
  670. 14137 @.....bbb
  671. 14138 @........
  672. 14200 DB2,$e000+201*8:rem
  673. 14223 @........
  674. 14224 @bbbbbbbb
  675. 14225 @b..bbb.b
  676. 14226 @..b...b.
  677. 14227 @..b...b.
  678. 14228 @..b...b.
  679. 14229 @...b..b.
  680. 14230 @....b.b.
  681. 14300 DB2,$e000+202*8:rem
  682. 14331 @....b.b.
  683. 14332 @....b.b.
  684. 14333 @...b..b.
  685. 14334 @b.b...b.
  686. 14335 @.bb...b.
  687. 14336 @..b...b.
  688. 14337 @b..bbb.b
  689. 14338 @bbbbbbbb
  690. 14400 DB2,$e000+203*8:rem
  691. 14423 @........
  692. 14424 @........
  693. 14425 @bbb.....
  694. 14426 @..bbb...
  695. 14427 @....bb..
  696. 14428 @.....bb.
  697. 14429 @......bb
  698. 14430 @.......b
  699. 14500 DB2,$e000+204*8:rem
  700. 14531 @.......b
  701. 14532 @.......b
  702. 14533 @......bb
  703. 14534 @.....bb.
  704. 14535 @....bb..
  705. 14536 @..bbb...
  706. 14537 @bbb.....
  707. 14538 @........
  708. 15000 DB2,$e000+205*8:rem
  709. 15023 @........
  710. 15024 @........
  711. 15025 @.....bbb
  712. 15026 @...bbbbb
  713. 15027 @..bb.b..
  714. 15028 @.bb..b..
  715. 15029 @bb....bb
  716. 15030 @b....b..
  717. 15100 DB2,$e000+206*8:rem
  718. 15131 @b...b...
  719. 15132 @b...b...
  720. 15133 @bb..b...
  721. 15134 @.bb.bbbb
  722. 15135 @..bb....
  723. 15136 @...bbb..
  724. 15137 @.....bbb
  725. 15138 @........
  726. 15200 DB2,$e000+207*8:rem
  727. 15223 @........
  728. 15224 @bbbbbbbb
  729. 15225 @b......b
  730. 15226 @........
  731. 15227 @b..bb..b
  732. 15228 @b.b..b.b
  733. 15229 @..b..b..
  734. 15230 @b..bb..b
  735. 15300 DB2,$e000+208*8:rem
  736. 15331 @.bb..bb.
  737. 15332 @.b....b.
  738. 15333 @.b....b.
  739. 15334 @bb....bb
  740. 15335 @.bbbbbb.
  741. 15336 @........
  742. 15337 @b......b
  743. 15338 @bbbbbbbb
  744. 15400 DB2,$e000+209*8:rem
  745. 15423 @........
  746. 15424 @........
  747. 15425 @bbb.....
  748. 15426 @bbbbb...
  749. 15427 @..b.bb..
  750. 15428 @..b..bb.
  751. 15429 @bb....bb
  752. 15430 @..b....b
  753. 15500 DB2,$e000+210*8:rem
  754. 15531 @...b...b
  755. 15532 @...b...b
  756. 15533 @...b..bb
  757. 15534 @bbbb.bb.
  758. 15535 @....bb..
  759. 15536 @..bbb...
  760. 15537 @bbb.....
  761. 15538 @........
  762. 16000 DB2,$e000+211*8:rem
  763. 16020 @.bbbbbbb
  764. 16022 @.b.b....
  765. 16023 @.b....b.
  766. 16024 @.b..b...
  767. 16025 @.bb....b
  768. 16026 @.b...b..
  769. 16027 @.b.b....
  770. 16028 @.b....b.
  771. 16100 DB2,$e000+212*8:rem
  772. 16129 @.b..b...
  773. 16130 @.bb....b
  774. 16131 @.b...b..
  775. 16132 @.b.b....
  776. 16133 @.b....b.
  777. 16134 @.b..b...
  778. 16135 @.bb....b
  779. 16136 @.b...b..
  780. 16200 DB2,$e000+213*8:rem
  781. 16237 @.b.b....
  782. 16238 @.b....bb
  783. 16239 @.b..bb..
  784. 16240 @.bbb....
  785. 16241 @.bbbbbbb
  786. 16242 @........
  787. 16243 @........
  788. 16244 @........
  789. 16300 DB2,$e000+214*8:rem
  790. 16320 @bbbbbbb.
  791. 16322 @b..b..b.
  792. 16323 @...b..b.
  793. 16324 @.b.b..b.
  794. 16325 @...b..b.
  795. 16326 @..bb..b.
  796. 16327 @b..b..b.
  797. 16328 @...b..b.
  798. 16400 DB2,$e000+215*8:rem
  799. 16429 @.b.b..b.
  800. 16430 @...b..b.
  801. 16431 @..bb..b.
  802. 16432 @b..b..b.
  803. 16433 @...b..b.
  804. 16434 @.b.b..b.
  805. 16435 @...b..b.
  806. 16436 @..bb..b.
  807. 16500 DB2,$e000+216*8:rem
  808. 16537 @bb....b.
  809. 16538 @......b.
  810. 16539 @......b.
  811. 16540 @......b.
  812. 16541 @bbbbbbb.
  813. 16542 @........
  814. 16543 @........
  815. 16544 @........
  816. 17000 DB2,$e000+240*8:rem
  817. 17037 @....b...
  818. 17038 @....b...
  819. 17039 @....b...
  820. 17040 @....b...
  821. 17041 @....b...
  822. 17042 @....b...
  823. 17043 @....b...
  824. 17044 @bbbbbbbb
  825. 17100 DB2,$e000+255*8:rem
  826. 17137 @........
  827. 17138 @........
  828. 17139 @........
  829. 17140 @........
  830. 17141 @........
  831. 17142 @........
  832. 17143 @........
  833. 17144 @bbbbbbbb
  834. 17200 DB2,$e000+252*8:rem
  835. 17237 @....b...
  836. 17238 @....b...
  837. 17239 @....b...
  838. 17240 @....b...
  839. 17241 @....b...
  840. 17242 @....b...
  841. 17243 @....b...
  842. 17244 @....bbbb
  843. 17300 DB2,$e000+236*8:rem
  844. 17337 @....b...
  845. 17338 @....b...
  846. 17339 @....b...
  847. 17340 @....b...
  848. 17341 @....b...
  849. 17342 @....b...
  850. 17343 @....b...
  851. 17344 @bbbbb...
  852. 17400 DB2,$e000+241*8:rem
  853. 17437 @........
  854. 17438 @........
  855. 17439 @........
  856. 17440 @........
  857. 17441 @........
  858. 17442 @........
  859. 17443 @........
  860. 17444 @....bbbb
  861. 17500 DB2,$e000+251*8:rem
  862. 17537 @........
  863. 17538 @........
  864. 17539 @........
  865. 17540 @........
  866. 17541 @........
  867. 17542 @........
  868. 17543 @........
  869. 17544 @bbbbb...
  870. 17600 DB2,$e000+229*8:rem
  871. 17637 @........
  872. 17638 @........
  873. 17639 @........
  874. 17640 @........
  875. 17641 @........
  876. 17642 @........
  877. 17643 @bbbbbbbb
  878. 17644 @bbbbbbbb
  879. 17700 DB2,$e000+244*8:rem
  880. 17737 @........
  881. 17738 @........
  882. 17739 @........
  883. 17740 @........
  884. 17741 @........
  885. 17742 @bbbbbbbb
  886. 17743 @bbbbbbbb
  887. 17744 @bbbbbbbb
  888. 17800 DB2,$e000+226*8:rem
  889. 17837 @........
  890. 17838 @........
  891. 17839 @........
  892. 17840 @bbbbbbbb
  893. 17841 @bbbbbbbb
  894. 17842 @bbbbbbbb
  895. 17843 @bbbbbbbb
  896. 17844 @bbbbbbbb
  897. 17900 DB2,$e000+245*8:rem
  898. 17937 @........
  899. 17938 @bbbbbbbb
  900. 17939 @bbbbbbbb
  901. 17940 @bbbbbbbb
  902. 17941 @bbbbbbbb
  903. 17942 @bbbbbbbb
  904. 17943 @bbbbbbbb
  905. 17944 @bbbbbbbb
  906. 18000 DB2,$e000+225*8:rem
  907. 18037 @bbbbbbbb
  908. 18038 @bbbbbbbb
  909. 18039 @bbbbbbbb
  910. 18040 @bbbbbbbb
  911. 18041 @bbbbbbbb
  912. 18042 @bbbbbbbb
  913. 18043 @bbbbbbbb
  914. 18044 @bbbbbbbb
  915. 18100 DB2,$e000+246*8:rem
  916. 18137 @....b...
  917. 18138 @....b...
  918. 18139 @....b...
  919. 18140 @....b...
  920. 18141 @....b...
  921. 18142 @....b...
  922. 18143 @....b...
  923. 18144 @....b...
  924. 18200 DB2,$e000+059*8:rem
  925. 18237 @........
  926. 18238 @........
  927. 18239 @........
  928. 18240 @........
  929. 18241 @........
  930. 18242 @...bb...
  931. 18243 @...bb...
  932. 18244 @..bb....
  933. 19999 D4
  934. 20000 D1 frage
  935. 20010 print" z[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]k[146]"
  936. 20020 print"ac[146]                                    #g[146]";
  937. 20030 print"bw[146]                                    jh[146]";
  938. 20040 print" f[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]![146]"
  939. 20050 fori=1to2:print"[157]"
  940. 20060 print"$p[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]ms$p[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]ms[146]";
  941. 20070 print"x[146]                  dx[146]                  d[146]";
  942. 20080 print"%q[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]vt%q[146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]v[146]";:poke52983+i*120,148
  943. 20090 next:print"[145][145][145][145][145][145][145][145][145][145][145][145]"
  944. 20100 D4
  945. 21000 D1 punkte
  946. 21005 l=l-1
  947. 21010 p$(15)="[158]15   eur 1 million"
  948. 21020 p$(14)="14   eur 500.000  "
  949. 21030 p$(13)="13   eur 125.000  "
  950. 21040 p$(12)="12   eur 64.000   "
  951. 21050 p$(11)="11   eur 32.000   "
  952. 21060 p$(10)="[158]10   eur 16.000   "
  953. 21065 if mo=1 then p$(10)="10   eur 16.000   "
  954. 21070 p$(9)=" 9   eur 8.000    "
  955. 21080 p$(8)=" 8   eur 4.000    "
  956. 21090 p$(7)=" 7   eur 2.000    "
  957. 21100 p$(6)=" 6   eur 1.000    "
  958. 21110 p$(5)="[158] 5   eur 500      "
  959. 21120 p$(4)=" 4   eur 300      "
  960. 21130 p$(3)=" 3   eur 200      "
  961. 21140 p$(2)=" 2   eur 100      "
  962. 21150 p$(1)=" 1   eur 50       "
  963. 21160 print"";
  964. 21170 fori=15to1step-1
  965. 21180 print""lu$"[194]"p$(i)
  966. 21190 nexti
  967. 21200 if l=0then21900
  968. 21210 print"";
  969. 21220 ifl<15thenfori=1to15-l:print:next
  970. 21230 fori=1tol
  971. 21240 print"[159]"lu$"[218]":next
  972. 21250 print"";
  973. 21260 ifl<15thenfori=1to15-l:print:next
  974. 21270 print""lu$"[194]"p$(l)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][218]"
  975. 21900 l=l+1
  976. 21999 D4
  977. 22000 D1 config
  978. 22010 open2,8,2,"config,s,r"
  979. 22020 fori=1to15:input#2,fz(i):next
  980. 22030 input#2,fz:close2
  981. 22040 D4
  982. 23000 D1 joker
  983. 23010 print"x  [155][193][195][197][146]     e  [155][211][214][146]"
  984. 23020 print"   [155][194][196][198][146]        [155][212][215][146]"
  985. 23030 print"              [155][213][216][146]"
  986. 23040 print"  50:50    ausstieg"
  987. 23050 print
  988. 23060 print"y  [155][199][201][203][146]
  989. 23070 [153]"   left$mid$(NULL)wait"
  990. 23075 [153]
  991. 23080 [153]" telefon"
  992. 23085 [139] mo[178]1 [167] [153]"ononononj  list(NULL)(NULL)(NULL)cmdcmdcmd(NULL)(NULL)(NULL)waitcmdcmdcmdcmdcmdcmdzusatzj."
  993. 23090 [153]
  994. 23100 [153]"z  list(NULL)(NULL)(NULL)wait"
  995. 23110 [153]"   (NULL)(NULL)(NULL)wait"
  996. 23115 [153]
  997. 23120 [153]" publikum    _ zoom
  998. 23200 ifj1=0then23300
  999. 23210 print"   [205][206]
  1000. 23220 [153]"    (NULL)(NULL)"
  1001. 23300 [139]j3[178]0[167]23350
  1002. 23310 [153]"   (NULL)(NULL)
  1003. 23320 print"    [206][205]"
  1004. 23350 ifj4=0then23400
  1005. 23360 print" [205][206] "
  1006. 23370 print"    [206][205] "
  1007. 23400 ifj2=0then23500
  1008. 23410 print"   [205][206]
  1009. 23420 [153]"    (NULL)(NULL)"
  1010. 23500 D4
  1011. 24000 D1 f[139]tyf[139]ty
  1012. 24003 [139]j1[178]1[167] D4
  1013. 24005 j1[178]1
  1014. 24010 [129]i[178]1[164]2
  1015. 24020 x[178][181](4[172][187](1))[170]1
  1016. 24030 [139]x[178]ra[167]24020
  1017. 24040 [139]j1(x)[178]1[167]24020
  1018. 24050 ga$(x)[178]"                  ":j1(x)[178]1
  1019. 24053 [130]i
  1020. 24055 [129]i[178]1[164]2000:[130]i
  1021. 24060 D3 antw[176]ten
  1022. 24065 D3 joker
  1023. 24070 D4
  1024. 25000 D1 publikum
  1025. 25005 [139]j2[178]1[167] D4
  1026. 25007 j2[178]1
  1027. 25010 [129]i[178]1[164]4:pk(i)[178]0:[130]
  1028. 25020 x[178]100[171]l[172]5
  1029. 25030 y[178][181](100[172][187](1))
  1030. 25040 [139]y[179]x[167]25100
  1031. 25050 [139]y[177][178]x[167]25200
  1032. 25100 x[178][181](17[171]l)[172]5
  1033. 25110 pk(ra)[178]x
  1034. 25115 y[178][181](2[172][187](1))[170]1:z[178][181](((100[171]x)[173]1.2)[172][187](1))[170]1:w[178][181](4[172][187](1))[170]1
  1035. 25116 [139]j1(w)[178]1[167]25115
  1036. 25117 [139] y[178]1[167]pk(w)[178]pk(w)[170]z:x[178]x[170]z
  1037. 25120 [129]i[178]1[164]100[171]x
  1038. 25130 y[178][181](4[172][187](1))[170]1
  1039. 25135 [139]j1(y)[178]1[175][181](10[172][187](1))[179][177]5[167]25130
  1040. 25137 pk(y)[178]pk(y)[170]1
  1041. 25140 [130]i
  1042. 25150 [137]25500
  1043. 25200 w[178]0:z[178][181](3[172][187](1))[170]1
  1044. 25210 [139]z[178]2[167]w[178][181](20[172][187](1))[170]1:z[178][181](4[172][187](1))[170]1
  1045. 25215 [139]j1(z)[178]1[167]25200
  1046. 25217 pk(z)[178]pk(z)[170]w
  1047. 25220 [139]z[178]3[167]x[178][181]((17[171]l)[172](4[172][187](1))):[137]25110
  1048. 25300 [129]i[178]1[164]100[171]w
  1049. 25310 y[178][181](4[172][187](1))[170]1
  1050. 25315 [139]j1(y)[178]1[175][181](10[172][187](1))[179][177]5[167][137] 25310
  1051. 25317 pk(y)[178]pk(y)[170]1
  1052. 25320 [130]i
  1053. 25330 [137]25500
  1054. 25500 DC1,0,0,0,1
  1055. 25510 DC2,0,0,0,1
  1056. 25520 DC3,30,52,0,1
  1057. 25530 DC4,0,0,0,1
  1058. 25540 [153]"load  list(NULL)(NULL)(NULL)wait"
  1059. 25550 [153]"  (NULL)(NULL)(NULL)waitopen publikumsjoker
  1060. 25560 print"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  1061. 25570 [153]"das publikum hat"
  1062. 25575 [153]"folgendermassen"
  1063. 25580 [153]"geantwortet:"
  1064. 25590 [153]"  antwort a:"pk(1)"%"
  1065. 25600 [153]"  antwort b:"pk(2)"%"
  1066. 25610 [153]"  antwort c:"pk(3)"%"
  1067. 25620 [153]"  antwort d:"pk(4)"%"
  1068. 25630 [153]"'_' druecken !"
  1069. 25640 f$[178]lu$[170]"":[153]""f$"list>sinsinsinsinsinsinsinsinsinsinsinsinsinsinsinrnd"
  1070. 25650 [129]i[178]1[164]10
  1071. 25660 [153]f$"absabsabsabsabsabsabsabsabs"
  1072. 25670 [153]f$"logsinorsinorsinorsinorsinorsinorsinorsin*"
  1073. 25680 [130]i
  1074. 25685 [129]i[178]1[164]4:[153] D(18[170]i[172]4,1)""pk(i)"cmd%":[130]
  1075. 25690 [129]i[178]1[164]20
  1076. 25700 [129]j[178]1[164]4
  1077. 25710 [139]pk(j)[177]4[167][153] D(19[170]4[172]j,23[171]i)"clrgetgetget":pk(j)[178]pk(j)[171]5:[137]25760
  1078. 25720 [139]pk(j)[178]4[167][153] D(19[170]4[172]j,23[171]i)"clrintintint":pk(j)[178]pk(j)[171]4:[137]25760
  1079. 25730 [139]pk(j)[178]3[167][153] D(19[170]4[172]j,23[171]i)"clrnewnewnew":pk(j)[178]pk(j)[171]3:[137]25760
  1080. 25740 [139]pk(j)[178]2[167][153] D(19[170]4[172]j,23[171]i)"clrsgnsgnsgn":pk(j)[178]pk(j)[171]2:[137]25760
  1081. 25750 [139]pk(j)[178]1[167][153] D(19[170]4[172]j,23[171]i)"clrfnfnfn":pk(j)[178]pk(j)[171]1:[137]25760
  1082. 25760 [130]j:[130]i
  1083. 25770 [153] D(24,24)"a (NULL) b (NULL) c (NULL) donononononon"
  1084. 25940 [161]an$:[139]an$[179][177]"_"[167]25940
  1085. 25950 [153]"load"
  1086. 25960 D3 frage
  1087. 25970 D3 antw[176]ten
  1088. 25980 D3 punkte
  1089. 25990 D3 joker
  1090. 25999 D4
  1091. 26310 DB0,49152[170]4[172]64:[143]
  1092. 26320 @.....bbbbbbbbbbbbbb......
  1093. 26322 @.....b.b....b..b..b......
  1094. 26323 @.....b....b....b..b......
  1095. 26324 @.....b..b....b.b..b......
  1096. 26325 @.....bb....b...b..b......
  1097. 26326 @.....b...b....bb..b......
  1098. 26327 @.....b.b....b..b..b......
  1099. 26328 @.....b....b....b..b......
  1100. 26329 @.....b..b....b.b..b......
  1101. 26330 @.....bb....b...b..b......
  1102. 26331 @.....b...b....bb..b......
  1103. 26332 @.....b.b....b..b..b......
  1104. 26333 @.....b....b....b..b......
  1105. 26334 @.....b..b....b.b..b......
  1106. 26335 @.....bb....b...b..b......
  1107. 26336 @.....b...b....bb..b......
  1108. 26337 @.....b.b....bb....b......
  1109. 26338 @.....b....bb......b......
  1110. 26339 @.....b..bb........b......
  1111. 26340 @.....bbb..........b......
  1112. 26341 @.....bbbbbbbbbbbbbb......
  1113. 26350 D4,4,15,1,0
  1114. 26360 DC4,0,0,0,1
  1115. 26999 D4
  1116. 27000 D1 telef[145]
  1117. 27010 [139]j3[178]1[175]tj[178]0[167]D4
  1118. 27015 [139]j4[178]1[175]tj[178]1[167]D4
  1119. 27017 [139]tj[178]1[175]mo[178]0[167]D4
  1120. 27020 [139]tj[178]0[167]j3[178]1
  1121. 27030 [139]tj[178]1[167]j4[178]1
  1122. 27040 [139]tj[178]1[167][137]27500
  1123. 27070 [153]"load  listchr$right$(NULL)wait "
  1124. 27080 [153]"  left$mid$(NULL)waitopen         telefonjoker
  1125. 27090 print"              [163][163][163][163][163][163][163][163][163][163][163][163]
  1126. 27095 [139]tj[178]1[167][137]27500
  1127. 27100 [153]"sie koennen nun:"
  1128. 27110 [153]"1) jemanden 30 sekunden lang fragen"
  1129. 27120 [153]"   (zeit laeuft nach druecken der 1)
  1130. 27130 print"2) den telefonkandidat vom computer"
  1131. 27140 print"   simulieren lassen"
  1132. 27150 print"waehlen sie 1 oder 2"
  1133. 27160 getan$:ifan$<>"1"andan$<>"2"then27160
  1134. 27170 ifan$="1"then27200
  1135. 27180 goto27500
  1136. 27200 print"[147]"
  1137. 27210 D3 frage
  1138. 27220 D3 antwort
  1139. 27230 ti$="000000"
  1140. 27240 print"          sie haben noch
  1141. 27250 [153]""lu$""30[171][197]([201](ti$,2))"cmd wait"
  1142. 27260 [153]"         sekunden zum befragen"
  1143. 27270 [139]ti$[179][177]"000030"[167]27240
  1144. 27280 [153]"loadschluss !"
  1145. 27300 [137]27900
  1146. 27500 x[178]100[171]l[172]4
  1147. 27501 [139]tj[178]1[167] [137] 27510
  1148. 27502 [153]"load  listchr$right$(NULL)wait "
  1149. 27503 [153]"  left$mid$(NULL)waitopen         telefonjoker
  1150. 27504 print"              [163][163][163][163][163][163][163][163][163][163][163][163]
  1151. 27505 [153]"sie rufen nun jemanden an..."
  1152. 27509 [139]tj[178]0[167] [137] 27518
  1153. 27510 x[178]100[171]l[172].4
  1154. 27512 [153]"load  list(NULL)(NULL)(NULL)wait "
  1155. 27513 [153]"  (NULL)(NULL)(NULL)waitopen         zusatzjoker
  1156. 27514 print"              [163][163][163][163][163][163][163][163][163][163][163]
  1157. 27515 [153]"sie suchen einen publikumskandidat..."
  1158. 27518 [129]i[178]1[164]2000:[130]
  1159. 27519 y[178][181](100[172][187](1))
  1160. 27520 [139]y[179]x[167]27600
  1161. 27530 [139]y[177][178]x[167]27700
  1162. 27600 x[178]((15[171]l)[173]2)[170]8[170][181](4[172][187](1))
  1163. 27602 [139]tj[178]1[167]x[178]x[172]1.2
  1164. 27605 y[178][181](2[172][187](1)):[139]y[178]1[167]x[178]x[172]1.5
  1165. 27610 x[178][181](x):x[178]x[172]5:[139]x[177]100[167]x[178]100
  1166. 27615 y[178]x[171]10
  1167. 27617 [139]tj[178]1[167]y[178]y[170]5
  1168. 27620 z[178][181](100[172][187](1))[170]1
  1169. 27625 [139]z[179]y[167]tk[178]ra
  1170. 27630 [139]z[177][178]y[167]tk[178][181](4[172][187](1))[170]1
  1171. 27632 [139]j1(tk)[179][177]0[167]27620
  1172. 27635 [139]tj[178]0[167][153]"ihr telefonkandidat tippt auf"
  1173. 27637 [139]tj[178]1[167][153]"ihr publikumskandidat tippt auf"
  1174. 27640 a$[178][201](ga$(tk),[195](ga$(tk))[171]4)
  1175. 27645 [153]"open";a$".":[153]
  1176. 27650 [153]"er meint, er sei sich"x"cmd-prozentig"
  1177. 27655 [153]"sicher.
  1178. 27660 goto27900
  1179. 27700 iftj=0thenprint"ihr telefonkandidat hat ueberhaupt"
  1180. 27705 iftj=1thenprint"es gab leider keinen im publikum der"
  1181. 27710 iftj=0thenprint"keine ahnung... (sorry !)"
  1182. 27715 iftj=1thenprint"antworten wollte... (sorry !)"
  1183. 27900 print"druecken sie '_' zum weiterspielen !"
  1184. 27901 getan$:ifan$<>"_"then27901
  1185. 27910 print"[147]":iftj=0thena$="y"
  1186. 27915 iftj=1thena$="j"
  1187. 27920 D3 frage
  1188. 27930 D3 antworten
  1189. 27940 D3 punkte
  1190. 27950 D3 joker
  1191. 27960 D4
  1192.